home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed32.d64 / unit a-8 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  124 lines
  1. 200 PRINT"[147][159]";:POKE53272,21:POKE53280,0:POKE53281,0
  2. 201 PRINT"           WHC  ENTERPRISES       ":GOSUB591
  3. 202 PRINT"                                        [146]";
  4. 203 PRINT"                                        [146]";
  5. 204 PRINT"                                        [146]";
  6. 205 PRINT"         ENGLISH EXERCISES - A          [146]";
  7. 206 PRINT"                                        [146]";
  8. 207 PRINT"               UNIT A-8                 [146]";
  9. 208 PRINT"                                        [146]";
  10. 209 PRINT"[159]                                        [146]";
  11. 210 PRINT"                                        [146]"
  12. 211 GOSUB235
  13. 214 PRINT"[147] AND AWAY WE GO........":GOSUB591:GOSUB500:GOSUB590
  14. 215 GOTO1000
  15. 235 GOSUB591:GOSUB560
  16. 236 PRINT"[154] PRESS SPACE BAR TO CONTINUE [146][155]"
  17. 237 GETUI$:IFUI$<>CHR$(32)THEN237
  18. 238 RETURN
  19. 250 REM PAGE DESIGN ROUTINE
  20. 252 UP=UP+1
  21. 255 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  22. 260 PRINT" --------------------------------------"
  23. 265 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN"
  24. 299 :
  25. 500 REM <YES>
  26. 505 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  27. 510 POKE54296,15:POKE54277,42:POKE54278,250
  28. 515 POKE54276,23:POKE54273,23:POKE54272,191
  29. 520 FORTM=1TO150:NEXT:POKE54276,32:FORTM=1TO200:NEXT
  30. 525 POKE54296,0:RETURN
  31. 530 REM <NO>
  32. 535 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  33. 540 POKE54296,15:POKE54277,18:POKE54278,242
  34. 545 POKE54276,33:POKE54273,4:POKE54272,48
  35. 550 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
  36. 555 POKE54296,0:RETURN
  37. 560 REM <BLIP>
  38. 565 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
  39. 570 POKE54296,7:POKE54277,42:POKE54278,250
  40. 575 POKE54276,23:POKE54273,23:POKE54272,191
  41. 580 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
  42. 585 POKE54296,0:RETURN
  43. 590 FORTM=1TO500:NEXT:RETURN
  44. 591 FORTM=1TO1000:NEXT:RETURN
  45. 592 FORTM=1TO2000:NEXT:RETURN
  46. 593 FORTM=1TO3000:NEXT:RETURN
  47. 999 :
  48. 1000 PRINT"[147]";:RESTORE:POKE53281,0:POKE53280,0
  49. 1045 UP= 1
  50. 1050 P=UM:C=8:H=0:REM  NS=828
  51. 1830 FORJ=1TOC
  52. 1840 READQ$(J),A$(J)
  53. 1845 PRINT"[152][147] UNIT 4-8             ATTEMPTS MADE: ";H;"[155]"
  54. 1850 GOSUB591:PRINT"[153] ";Q$(J)
  55. 1860 GOSUB2300:GOSUB560
  56. 1870 INPUT"[158] >>>  ";SA$
  57. 1880 IFSA$=A$(J)GOTO1950
  58. 1885 IF Z=2THENGOSUB3000:H=H+1:GOTO1980
  59. 1890 Z=Z+1
  60. 1895 PRINT"[147][150] SORRY.":GOSUB590
  61. 1900 PRINT" YOUR ANSWER IS NOT CORRECT.":H=H+1:GOSUB530:GOSUB591
  62. 1910 PRINT"[153] TRY AGAIN.[155]"
  63. 1930 GOSUB592
  64. 1940 GOTO1845
  65. 1950 REM CORRECT ANSWER
  66. 1960 H=H+1:PRINT""SPC(24)" CORRECT! ":GOSUB591
  67. 1970 PRINTSPC(24)" VERY GOOD [155]"
  68. 1980 GOSUB500:GOSUB592:
  69. 1990 NEXTJ
  70. 1999 :
  71. 2000 PRINT"[147]YOU HAVE NOW FINISHED UNIT A-8.":GOSUB591:GOSUB560
  72. 2005 PRINT"YOU HAVE ANSWERED ";C;" QUESTIONS"
  73. 2010 PRINT"               IN ";H;" ATTEMPTS."
  74. 2020 IFH<9THENPRINT"[158]                EXCELLENT!              [146]":GOTO2050
  75. 2030 IFH<10THENPRINT"[159]              GOOD WORK!                [146]":GOTO2045
  76. 2040 PRINT"[150] TRY HARDER!   PLEASE REPEAT THIS UNIT. [146]"
  77. 2045 PRINT"":GOSUB235:GOTO2200
  78. 2050 PRINT"":GOSUB235
  79. 2055 PRINT"[153][147]YOU HAVE A CHOICE:
  80. 2060 [153]"PRESS  R WAIT TO REPEAT UNIT A-8
  81. 2065 PRINT"PRESS  M [146] TO GO TO THE DISK MENU
  82. 2070 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167]2070
  83. 2075 [139]R$[178]"R"[167] [140]:[137]200
  84. 2077 [137]2200
  85. 2080 [153]"LOAD RETURNING TO THE DISK MENU
  86. 2085 LOAD"MENU",8
  87. 2090 RUN
  88. 2095 END
  89. 2099 :
  90. 2100 REM
  91. 2110 DATATHE DELAY WAS -------.,UNAVOIDABLE
  92. 2115 DATATHERE WAS THICK -------- IN THE JUNGLE.,VEGETATION
  93. 2120 DATATHE CUFFS OF THE MAN'S ------ WERE      FRAYED.,TROUSERS
  94. 2125 DATAAMANDA HAS ------- TO ANOTHER SCHOOL.,TRANSFERRED
  95. 2130 DATALOUIE ENJOYED THE ------- DINNER.,SPAGHETTI
  96. 2135 DATATHE CONCORD IS A ------- AIRCRAFT.,SUPERSONIC
  97. 2140 DATAGEORGE WAS GIVEN A ------- TO TIME      MAGAZINE.,SUBSCRIPTION
  98. 2145 DATATHEY RECEIVED A ------- PAY CUT.,SUBSTANTIAL
  99. 2199 :
  100. 2200 PRINT"[147] HERE ARE THE WORDS IN UNIT A-8:":GOSUB560:GOSUB593
  101. 2210 PRINT"[159][147]1. THE DELAY WAS [158]UNAVOIDABLE.
  102. 2220 [153]"2. THERE WAS THICK SYSVEGETATION IN           THE JUNGLE.
  103. 2230 PRINT"3. THE CUFFS OF THE MAN'S [158]TROUSERS         WERE FRAYED.
  104. 2240 [153]"4. AMANDA HAS SYSTRANSFERRED TO               ANOTHER SCHOOL.
  105. 2250 PRINT"5. LOUIE ENJOYED THE [158]SPAGHETTI             DINNER.
  106. 2260 [153]"6. THE CONCORD IS A SYSSUPERSONIC             AIIRCRAFT.
  107. 2270 PRINT"7. GEORGE WAS GIVEN A [158]SUBSCRIPTION         TO TIME MAGAZINE.
  108. 2280 [153]"8. THEY RECEIVED A SYSSUBSTANTIAL             PAY CUT."
  109. 2290 [141]235:[137]2055
  110. 2299 :
  111. 2300 [153]"CONT LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN"
  112. 2310 [153]" CHOOSE YOUR ANSWER FROM THE FOLLOWING:PRINT"
  113. 2320 [153][166]12)"   UNAVOIDABLE  ":[153][166]12)"   VEGETATION     "
  114. 2330 [153][166]12)"   TROUSERS   ":[153][166]12)"   TRANSFERRED"
  115. 2340 [153][166]12)"   SPAGHETTI ":[153][166]12)"   SUPERSONIC  "
  116. 2350 [153][166]12)"   SUBSCRIPTION ":[153][166]12)"   SUBSTANTIAL ":[142]
  117. 3000 [153]"LOAD"
  118. 3005 [141]591
  119. 3010 Z[178]0:[153]" I WILL SHOW YOU THE CORRECT ANSWER
  120. 3015 PRINT" AT THE END OF THIS EXERCISE.":GOSUB530:GOSUB592
  121. 3020 PRINT" NOW, LET'S MOVE ON THE NEXT ONE."
  122. 3025 GOSUB235:RETURN
  123. 3500 REM WHC 92:05:23
  124.